(gnus-mail-reply-using-mhe): Handle case of no subject.

diff --git a/lisp/gnusmail.el b/lisp/gnusmail.el
index bc906d5f29dbddcb25795985ba645d8a2510609a..b8f62346565bed2bcf13ed5cf88d9bfec0466dad 100644 (file)
--- a/lisp/gnusmail.el
+++ b/lisp/gnusmail.el
@@ -152,7 +152,8 @@ The command \\[mh-yank-cur-msg] yank the original message into current buffer."
     (save-restriction
       (gnus-article-show-all-headers)  ;I don't think this is really needed.
       (setq from (gnus-fetch-field "from")
-           subject (let ((subject (gnus-fetch-field "subject")))
+           subject (let ((subject (or (gnus-fetch-field "subject")
+                                      "(None)")))
                      (if (and subject
                               (not (string-match "^[Rr][Ee]:.+$" subject)))
                          (concat "Re: " subject) subject))